home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_06_1985_Transactor_Publishing.d64 / read sprites (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  866b  |  52 lines
  1. 0 rem read sprites (aug 25/84)        :
  2. 1 :
  3. 2 rem 0 statements, 2 functions
  4. 3 :
  5. 4 rem keyword characters: 10
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem f/xloc(     xloc     3786    041
  9. 8 rem f/yloc(     yloc     3812    042
  10. 9 :
  11. 10 rem u/chkspr (3664/037)
  12. 11 rem d/powers (3694/039)
  13. 12 :
  14. 13 rem  this module also contains one
  15. 14 rem  line from set sprites -- 3624
  16. 15 :
  17. 16 rem ================================
  18. 17 :
  19. 608 .asc "xloc[168]yloc[168]"
  20. 1608 .word xloc-1,yloc-1
  21. 3624 xs3 jmp $b248
  22. 3664 chkspr jsr $73
  23. 3666 chs1 jsr $b79e
  24. 3668 cpx #8
  25. 3670 bcs xs3
  26. 3672 rts
  27. 3674 ;
  28. 3694 powers .byte 1,2,4,8,16,32,64,128
  29. 3696 ;
  30. 3786 xloc jsr chs1
  31. 3788 jsr $aef7
  32. 3790 txa
  33. 3792 asl
  34. 3794 tay
  35. 3796 lda $d000,y
  36. 3798 tay
  37. 3800 lda powers,x
  38. 3802 and $d010
  39. 3804 beq xl1
  40. 3806 lda #1
  41. 3808 xl1 jmp $b391
  42. 3810 ;
  43. 3812 yloc jsr chs1
  44. 3814 jsr $aef7
  45. 3816 txa
  46. 3818 asl
  47. 3820 tay
  48. 3822 lda $d001,y
  49. 3824 tay
  50. 3826 jmp $b3a2
  51. 3828 ;
  52.